home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / Public_Domain / PD_STUFF.lha / RexxIntuition / Scripts / ILBM.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1992-05-30  |  1.8 KB  |  56 lines
  1. /* ILBMViewer - An example of using the dissidents rx_intui.library */
  2.  
  3. /* Present File requester for user to pick the picture to load */
  4. /* Get a ReqDef structure */
  5. rq=rxi_GetReq()
  6. IF rq == '' | rq == 0 THEN SAY 'ReqDef allocation error'
  7.  
  8. /* Do the File Requester with INFO_SUPPRESS. Since we pass 0 for screen, this */
  9. /* opens on WB. Note: If no ReqDef, this does nothing and returns path = null. */
  10. path=rxi_ReqWindow(rq,'Choose Picture File:',4096,,,,,,0)
  11.  
  12. /* Free the ReqDef. If no ReqDef, this does nothing. */
  13. rq=rxi_EndReq(rq)
  14.  
  15. IF path > '' THEN DO
  16.  
  17. /* Let the lib open a window/screen for us, and load the picture. */
  18. wind=rxi_IFFLoad(0,0,path)
  19. IF wind == '' | wind == 0 THEN SAY 'Window open error'
  20.  
  21. /* Trap the RIGHT MOUSE button so that we can use it for ourselves. We're */
  22. /* going to use the menu button to bring up the color requester, and the  */
  23. /* select button to exit the program */
  24. err=rxi_ModIDCMP(wind,,,65536)
  25.  
  26. /* Get the window's screen. If no window, this returns 0 for screen */
  27. screen=rxi_PEEK(wind,46,2)
  28.  
  29. /* Here's our IDCMP loop. When the lib opens a window, it's default IDCMP is */
  30. /* MOUSEBUTTONS only. If no window (ie 0), this loop breaks out immediately. */
  31. class = 1
  32.  
  33. DO WHILE class > 0
  34. spec=rxi_WaitMsg(wind)
  35. /* divide the spec into separate parts */
  36. PARSE var spec class part1 part2 part3
  37.  
  38. IF class == 3 THEN DO
  39. /* If select DOWN, set class to 0 */
  40. IF part1 == 0 THEN class = 0
  41. /* If menu DOWN, bring up the color requester */
  42. IF part1 == 2 THEN err=rxi_Color(screen)
  43. END
  44.  
  45. END
  46.  
  47. /* Close the window that the lib opened, thus freeing any resources for it. */
  48. /* Note that if no window opened (ie 0), this does nothing. */
  49. wind=rxi_EndWindow(wind)
  50.  
  51. /* Close the screen that the lib opened, thus freeing any resources for it. */
  52. /* Note that if no screen opened (ie 0), this does nothing. */
  53. screen=rxi_EndScreen(screen)
  54.  
  55. END
  56.